home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / misc / gms_e.lha / GMSDev / EModules / system / misc.e < prev    next >
Text File  |  1997-09-15  |  4KB  |  132 lines
  1. /*
  2. **  $VER: misc.e V0.8B
  3. **
  4. **  (C) Copyright 1996-1997 DreamWorld Productions.
  5. **      All Rights Reserved.
  6. **
  7. */
  8.  
  9. OPT MODULE
  10. OPT EXPORT
  11. OPT PREPROCESS
  12.  
  13. MODULE 'gms/dpkernel','system/register'
  14.  
  15. /****************************************************************************
  16. ** Object Referencing structure.
  17. */
  18.  
  19. CONST REFVERSION     = 1,
  20.       TAGS_REFERENCE = $FFFB0000 OR ID_REFERENCE
  21.  
  22. OBJECT reference
  23.   head[1]     :ARRAY OF head    /* Standard header */
  24.   next        :PTR TO reference /* Next reference */
  25.   prev        :PTR TO reference /* Previous reference */
  26.   objectid    :INT              /* ID of the object */
  27.   pad         :INT              /* Reserved */
  28.   objectname  :LONG             /* Name of the object */
  29.   modname     :LONG             /* Name of the module containing the object */
  30.   checkfile   :LONG             /* CheckFile code */
  31.   modnumber   :INT              /* Module ID number */
  32. ENDOBJECT
  33.  
  34. CONST REFA_OBJECTID   = TWORD OR 20,
  35.       REFA_OBJECTNAME = TAPTR OR 24,
  36.       REFA_MODNAME    = TAPTR OR 28,
  37.       REFA_CHECKFILE  = TAPTR OR 32,
  38.       REDA_MODNUMBER  = TWORD OR 36
  39.  
  40. /****************************************************************************
  41. ** Universal Structure, used in the CopyStructure() routine.
  42. */
  43.  
  44. OBJECT universe
  45.   head[1]      :ARRAY OF head
  46.   palette      :LONG   
  47.   planes       :INT   
  48.   scrwidth     :INT   
  49.   scrheight    :INT   
  50.   picwidth     :INT   
  51.   picbytewidth :INT   
  52.   picheight    :INT   
  53.   task         :LONG   
  54.   planesize    :LONG   
  55.   amtcolours   :LONG   
  56.   scrmode      :INT   
  57.   scrtype      :INT   
  58.   source       :LONG   
  59.   screenlink   :LONG   
  60.   rasterlist   :LONG   
  61.   scrxoffset   :INT   
  62.   scryoffset   :INT   
  63.   picyoffset   :INT   
  64.   picxoffset   :INT   
  65.   channel      :INT   
  66.   priority     :INT   
  67.   length       :LONG   
  68.   octave       :INT   
  69.   volume       :INT   
  70. ENDOBJECT
  71.  
  72. /****************************************************************************
  73. ** The SysObject structure.  Private.
  74. */
  75.  
  76. CONST SOVERSION      = 1,
  77.       TAGS_SYSOBJECT = $FFFB0000 OR ID_SYSOBJECT
  78.  
  79. OBJECT sysobject
  80.   head[1]     :ARRAY OF head
  81.   prev        :PTR TO sysobject /* Previous object in list */
  82.   next        :PTR TO sysobject /* Next object in list */
  83.   objectid    :INT              /* Unique ID of the object, eg ID_PICTURE */
  84.   classid     :INT              /* Class reference ID */
  85.   name        :LONG             /* Full name of the object */
  86.   copytounv   :LONG
  87.   copyfromunv :LONG
  88.   checkfile   :LONG
  89.   load        :LONG
  90.   display     :LONG
  91.   get         :LONG
  92.   free        :LONG
  93.   init        :LONG
  94.   read        :LONG
  95.   write       :LONG
  96.   open        :LONG
  97.   hide        :LONG
  98.   close       :LONG
  99.   save        :LONG
  100.   query       :LONG
  101.   activate    :LONG
  102.   deactivate  :LONG
  103.   draw        :LONG
  104.   clear       :LONG
  105. ENDOBJECT
  106.  
  107. CONST SOA_PREV        = 12 OR TAPTR,
  108.       SOA_NEXT        = 16 OR TAPTR,
  109.       SOA_OBJECTID    = 20 OR TWORD,
  110.       SOA_CLASSID     = 22 OR TWORD,
  111.       SOA_NAME        = 24 OR TAPTR,
  112.       SOA_COPYTOUNV   = 28 OR TAPTR,
  113.       SOA_COPYFROMUNV = 32 OR TAPTR,
  114.       SOA_CHECKFILE   = 36 OR TAPTR,
  115.       SOA_LOAD        = 40 OR TAPTR,
  116.       SOA_DISPLAY     = 44 OR TAPTR,
  117.       SOA_GET         = 48 OR TAPTR,
  118.       SOA_FREE        = 52 OR TAPTR,
  119.       SOA_INIT        = 56 OR TAPTR,
  120.       SOA_READ        = 60 OR TAPTR,
  121.       SOA_WRITE       = 64 OR TAPTR,
  122.       SOA_OPEN        = 68 OR TAPTR,
  123.       SOA_HIDE        = 72 OR TAPTR,
  124.       SOA_CLOSE       = 76 OR TAPTR,
  125.       SOA_SAVE        = 80 OR TAPTR,
  126.       SOA_QUERY       = 84 OR TAPTR,
  127.       SOA_ACTIVATE    = 88 OR TAPTR,
  128.       SOA_DEACTIVATE  = 92 OR TAPTR,
  129.       SOA_DRAW        = 96 OR TAPTR,
  130.       SOA_CLEAR       = 100 OR TAPTR
  131.  
  132.